10 REM--AHOY--APRIL ISSUE--LOWER CASE---PROG PAGE 53
100 REM *** ROUTINE FOR PRINTING LOWER CASE DESCENDERS ***
110 REM *** USING THE COMMODORE 1515 OR 1525 PRINTERS  ***
120 REM           *** BY MORTON KEVELSON ***
130 REM           ***   SEPTEMBER 1983   ***
140 PRINT CHR$(14):REM SET KEYBOARD TO UPPER/LOWER CASE MODE
150 PRINT CHR$(8):REM DISABLE SHIFT/COMMODORE KEY
160 PRINTCHR$(147)CHR$(17)CHR$(17)"              READING DATA "
170 DIM LC$(5),DS$(5)
180 DATA8,184,196,196,196,248,128,15,17:REM ** UPPER HALF OF 'G' **
190 DATA8,128,128,132,253,128,128,15,17:REM ** UPPER HALF OF 'J' **
200 DATA8,252,196,196,184,128,128,15,17:REM ** UPPER HALF OF 'P' **
210 DATA8,184,196,196,252,128,128,15,17:REM ** UPPER HALF OF 'Q' **
220 DATA8,188,192,192,252,128,128,15,17:REM ** UPPER HALF OF 'Y' **
230 DATA8,128,132,132,132,131,128,15,17:REM ** DESCENDER FOR 'G' **
240 DATA8,128,130,132,131,128,128,15,17:REM ** DESCENDER FOR 'J' **
250 DATA8,135,128,128,128,128,128,15,17:REM ** DESCENDER FOR 'P' **
260 DATA8,128,128,128,135,128,128,15,17:REM ** DESCENDER FOR 'Q' **
270 DATA8,132,132,132,131,128,128,15,17:REM ** DESCENDER FOR 'Y' **
280 FORI=1TO5:FORJ=1TO9
300 READLC
310 LC$(I)=LC$(I)+CHR$(LC)
330 NEXTJ:NEXTI
340 FORI=1TO5:FORJ=1TO9
360 READDS
370 DS$(I)=DS$(I)+CHR$(DS)
390 NEXTJ:NEXTI
400 P5$="":REM TEMPORARY STRING FOR MAIN TEXT.
410 SU$="":REM TEMPORARY STRING FOR DESCENDER GRAPHICS.
420 PRINT"TYPE A SENTENCE"
430 INPUT A$
440 L=LEN(A$):G=0
450 FORI=1 TO L
460 A5$=MID$(A$,I,1)
470 IFA5$=CHR$(71)THENG=1:REM ** CHECK FOR LOWER CASE 'G' **
480 IFA5$=CHR$(74)THENG=2:REM ** CHECK FOR LOWER CASE 'J' **
490 IFA5$=CHR$(80)THENG=3:REM ** CHECK FOR LOWER CASE 'P' **
500 IFA5$=CHR$(81)THENG=4:REM ** CHECK FOR LOWER CASE 'Q' **
510 IFA5$=CHR$(89)THENG=5:REM ** CHECK FOR LOWER CASE 'Y' **
520 IFG=0GOTO550
530 P5$=P5$+LC$(G):REM USE CUSTOM GRAPHICS FOR G,J,P,Q,Y.
540 SU$=SU$+DS$(G):GOTO560:REM CUSTOM GRAPHICS FOR DESCENDER LINE.
550 P5$=P5$+A5$:SU$=SU$+" "
560 G=0:NEXTI
570 OPEN4,4
580 PRINT#4,CHR$(17)P5$CHR$(8)
590 PRINT#4,CHR$(15)CHR$(17)SU$CHR$(8)
600 PRINT#4,CHR$(15):CLOSE4
610 PRINT"AGAIN ?"
620 GET G$:IF G$="" GOTO 620
630 IF G$="Y"GOTO400
640 PRINT CHR$(9)CHR$(142):REM RESTORE UPPER CASE MODE. ENABLE SHIFT COMM. KEY